home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #3 / CD 3 (Black) - 2001.iso / K-CS.dcr / 00107_Slide, slide, slide.ls < prev    next >
Encoding:
Text File  |  2001-01-08  |  1.9 KB  |  59 lines
  1. property range, maxpos, Steps, DescribeSprite
  2. global CurrentStep, startPos
  3.  
  4. on mouseDown me
  5.   set maxpos to startPos + range
  6.   repeat while the stillDown = 1
  7.     if the mouseV >= startPos then
  8.       if the mouseV <= maxpos then
  9.         set currentPos to the mouseV
  10.       else
  11.         set currentPos to maxpos
  12.       end if
  13.     else
  14.       set currentPos to startPos
  15.     end if
  16.     set CurrentStep to integer((currentPos - startPos) * Steps / range)
  17.     set currentPos to startPos + (CurrentStep * range / Steps)
  18.     set the locV of sprite the spriteNum of me to currentPos
  19.     set the locV of sprite 4 to 160 - (CurrentStep * 75)
  20.     updateStage()
  21.   end repeat
  22. end
  23.  
  24. on mouseEnter me
  25. end
  26.  
  27. on mouseLeave me
  28. end
  29.  
  30. on mouseUp me
  31.   set currentPos to the mouseV
  32.   if the mouseV < startPos then
  33.     set currentPos to startPos
  34.   end if
  35.   if the mouseV > (startPos + range) then
  36.     set currentPos to startPos + range
  37.   end if
  38.   set CurrentStep to integer((currentPos - startPos) * Steps / range)
  39.   set currentPos to startPos + (CurrentStep * range / Steps)
  40.   set the locV of sprite the spriteNum of me to currentPos
  41.   set the memberNum of sprite 50 to 289 + (4 * CurrentStep)
  42.   set the memberNum of sprite 54 to 290 + (4 * CurrentStep)
  43.   set the memberNum of sprite 58 to 291 + (4 * CurrentStep)
  44.   set the memberNum of sprite 66 to 292 + (4 * CurrentStep)
  45.   set the memberNum of sprite 70 to 293 + (4 * CurrentStep)
  46.   set the memberNum of sprite 74 to 294 + (4 * CurrentStep)
  47.   set the memberNum of sprite 78 to 295 + (4 * CurrentStep)
  48.   set the memberNum of sprite 82 to 296 + (4 * CurrentStep)
  49. end
  50.  
  51. on getBehaviorDescription
  52.   return "Creates a slider control."
  53. end
  54.  
  55. on getPropertyDescriptionList
  56.   set p_list to [#range: [#default: 111, #format: #integer, #comment: "How many pixels the slider can move", #range: [#min: 1, #max: 200]], #Steps: [#default: 12, #format: #integer, #comment: "How many steps the slider can move", #range: [#min: 1, #max: 20]]]
  57.   return p_list
  58. end
  59.